home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO006.dsk / SOFTGRAPH.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  16 lines
  1. 10  TEXT : HOME : SCALE= 1: ROT= 0
  2. 20  VTAB 10: HTAB 11: PRINT "SOFTGRAPH: LOADING"
  3. 30  POKE 232,0: POKE 233,96
  4. 40  PRINT  CHR$(4);"BLOAD SOFTGRAPH.B.FIL"
  5. 45  GOSUB 1000
  6. 50  PRINT  CHR$(4);"RUN MENU"
  7. 99  GOTO 499: REM   *SUBROUTINES FOLLOW*
  8. 100  VTAB 23: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE...": NORMAL 
  9. 101  WAIT  -16384,128,1: POKE  -16368,0: RETURN 
  10. 1000  HOME : VTAB 6
  11. 1010 ST$ = "SOFTGRAPH, VERSION S1": GOSUB 2000: PRINT : PRINT : PRINT "   THIS ENHANCED VERSION OF SOFTGRAPH"
  12. 1020  PRINT "IS BASED ON THE ORIGINAL FROM SOFTALK": PRINT "MAGAZINE, MODIFIED AND ENHANCED BY": PRINT : PRINT :ST$ = "TONY MARTIN": GOSUB 2000
  13. 1030  PRINT : PRINT "THIS VERSION DISTRIBUTED BY:": PRINT : PRINT :ST$ = "STANISLAUS APPLE GROUP": GOSUB 2000:ST$ = "P.O. BOX 741": GOSUB 2000:ST$ = "MODESTO, CA 95353": GOSUB 2000
  14. 1040  GOSUB 100: RETURN 
  15. 2000 L =  PEEK(37):SP$ = "": FOR X = 1 TO 20 - LEN(ST$)/2:SP$ = SP$ +" ": NEXT :ST$ = SP$ +ST$ +SP$: IF  LEN(ST$)/2 < > INT( LEN(ST$)/2)  THEN ST$ = ST$ +" "
  16. 2001  FOR X = 1 TO 20:PR$ =  LEFT$(ST$,X) + RIGHT$(ST$,X): VTAB L: HTAB 21 -X: PRINT PR$: NEXT : RETURN